|
1000
|
It is possible to clip the bar's caption to bar, when the time scale is changed
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20001227")
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Pattern := exPatternBox
var_Bar:Height := 13
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K1","This is a bit of text that get's clipped")
var_Items:[ItemBar,h,"K1",exBarHAlignCaption] := 4
var_Items:[ItemBar,h,"K1",exBarToolTip] := var_Items:[ItemBar,h,"K1",exBarCaption]
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K1","This is a bit of text that is not clipped")
var_Items:[ItemBar,h,"K1",exBarHAlignCaption] := 1
|
|
999
|
How can I change the color for all bars with the key matching a pattern
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 64
oDCOCX_Exontrol1:Debug := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"B1",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010117"),"B2",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"B4",nil)
var_Items:[ItemBar,0,"<B*>",exBarColor] := 255
|
|
998
|
How can I change the color for all bars in the same item with the key matching a pattern
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 64
oDCOCX_Exontrol1:Debug := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"B1",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010117"),"B2",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K4",nil)
var_Items:[ItemBar,h,"<B*>",exBarColor] := 255
|
|
997
|
How can I change the color for all bars in the same item
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K4",nil)
var_Items:[ItemBar,h,"<*>",exBarColor] := 255
|
|
996
|
How can I write a special number for each date related to a bar
local var_Chart as IChart
local var_Items as IItems
local var_Note,var_Note1,var_Note2,var_Note3,var_Note4,var_Note5 as INote
local var_Notes as INotes
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 32
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010113"),"1",nil)
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Note := var_Notes:Add("N1",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","")
var_Note:RelativePosition := "S+2"
var_Note:[PartText,exNoteStart] := "4"
var_Note:[PartFixedWidth,exNoteStart] := 18
var_Note:[PartHOffset,exNoteStart] := -9
var_Note:[PartBackColor,exNoteStart] := RGB(255,255,0)
var_Note:ShowLink := exNoteLinkHidden
var_Note:[PartVisible,exNoteStart] := true
var_Note1 := var_Notes:Add("N2",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","")
var_Note1:RelativePosition := "S+3"
var_Note1:[PartText,exNoteStart] := "4"
var_Note1:[PartFixedWidth,exNoteStart] := 18
var_Note1:[PartHOffset,exNoteStart] := -9
var_Note1:[PartBackColor,exNoteStart] := RGB(255,255,0)
var_Note1:ShowLink := exNoteLinkHidden
var_Note1:[PartVisible,exNoteStart] := true
var_Note2 := var_Notes:Add("N3",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","")
var_Note2:RelativePosition := "S+4"
var_Note2:[PartText,exNoteStart] := "5"
var_Note2:[PartFixedWidth,exNoteStart] := 18
var_Note2:[PartHOffset,exNoteStart] := -9
var_Note2:[PartBackColor,exNoteStart] := RGB(0,255,0)
var_Note2:ShowLink := exNoteLinkHidden
var_Note2:[PartVisible,exNoteStart] := true
var_Note3 := var_Notes:Add("N4",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","")
var_Note3:RelativePosition := "S+5"
var_Note3:[PartText,exNoteStart] := "5"
var_Note3:[PartFixedWidth,exNoteStart] := 18
var_Note3:[PartHOffset,exNoteStart] := -9
var_Note3:[PartBackColor,exNoteStart] := RGB(0,255,0)
var_Note3:ShowLink := exNoteLinkHidden
var_Note3:[PartVisible,exNoteStart] := true
var_Note4 := var_Notes:Add("N5",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","")
var_Note4:RelativePosition := "S+6"
var_Note4:[PartText,exNoteStart] := "8"
var_Note4:[PartFixedWidth,exNoteStart] := 18
var_Note4:[PartHOffset,exNoteStart] := -9
var_Note4:[PartBackColor,exNoteStart] := RGB(255,0,0)
var_Note4:ShowLink := exNoteLinkHidden
var_Note4:[PartVisible,exNoteStart] := true
var_Note5 := var_Notes:Add("Z",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","")
var_Note5:RelativePosition := "E"
var_Note5:[PartText,exNoteStart] := "4"
var_Note5:[PartFixedWidth,exNoteStart] := 18
var_Note5:[PartHOffset,exNoteStart] := -9
var_Note5:[PartBackColor,exNoteStart] := RGB(255,128,0)
var_Note5:[PartCanMove,exNoteStart] := true
var_Note5:ShowLink := exNoteLinkHidden
var_Note5:[PartVisible,exNoteStart] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
995
|
How can I assign a note to be always in the center of the bar
local var_Items as IItems
local var_Note as INote
local var_Notes as INotes
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"1",nil)
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Note := var_Notes:Add("Note",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","")
var_Note:RelativePosition := 0.5
var_Note:[PartText,exNoteStart] := "note<br>center"
var_Note:[PartBackColor,exNoteStart] := RGB(255,255,0)
var_Note:[PartVisible,exNoteEnd] := false
var_Note:ShowLink := exNoteLinkHidden
oDCOCX_Exontrol1:EndUpdate()
|
|
994
|
How can I assign a note relative to the start of the bar, and let it be movable
local var_Items as IItems
local var_Note as INote
local var_Notes as INotes
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"1",nil)
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Note := var_Notes:Add("Note",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","")
var_Note:RelativePosition := "S+1"
var_Note:[PartText,exNoteStart] := "<%d%>"
var_Note:[PartFixedWidth,exNoteStart] := 18
var_Note:[PartHOffset,exNoteStart] := 9
var_Note:[PartCanMove,exNoteStart] := true
var_Note:[PartBackColor,exNoteStart] := RGB(255,255,0)
var_Note:[PartVisible,exNoteEnd] := false
var_Note:ShowLink := exNoteLinkHidden
oDCOCX_Exontrol1:EndUpdate()
|
|
993
|
How can I associate a note relative to the start of the bar
local var_Items as IItems
local var_Note as INote
local var_Notes as INotes
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"1",nil)
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Note := var_Notes:Add("Note",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","")
var_Note:RelativePosition := "S+1"
var_Note:[PartText,exNoteStart] := "<%d%>"
var_Note:[PartFixedWidth,exNoteStart] := 18
var_Note:[PartHOffset,exNoteStart] := 9
var_Note:[PartBackColor,exNoteStart] := RGB(255,255,0)
var_Note:[PartVisible,exNoteEnd] := false
var_Note:ShowLink := exNoteLinkHidden
oDCOCX_Exontrol1:EndUpdate()
|
|
992
|
How can I associate a note relative to the end of the bar, so if the bar is resized at the end, the not is moved accordingly
local var_Items as IItems
local var_Note as INote
local var_Notes as INotes
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"1",nil)
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Note := var_Notes:Add("Note",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","")
var_Note:RelativePosition := "E-1"
var_Note:[PartText,exNoteStart] := "<%d%>"
var_Note:[PartFixedWidth,exNoteStart] := 18
var_Note:[PartHOffset,exNoteStart] := 9
var_Note:[PartVisible,exNoteEnd] := false
var_Note:ShowLink := exNoteLinkHidden
oDCOCX_Exontrol1:EndUpdate()
|
|
991
|
How can I associate a note relative to the end of the bar, so if the bar is resized at the end, the not is moved accordingly
local var_Items as IItems
local var_Note as INote
local var_Notes as INotes
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"1",nil)
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Note := var_Notes:Add("Note",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","")
var_Note:RelativePosition := 1
var_Note:[PartText,exNoteStart] := "End"
var_Note:[PartVisible,exNoteEnd] := false
var_Note:ShowLink := exNoteLinkHidden
oDCOCX_Exontrol1:EndUpdate()
|
|
990
|
How can I hide a bar without removing it
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 128
var_Chart:LevelCount := 2
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),"B1",nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010106"),SToD("20010114"),"B2",nil)
var_Items:AddLink("L1",var_Items:[FindItem,"Item 1",0,nil],"B1",var_Items:[FindItem,"Item 2",0,nil],"B2")
var_Items:[ItemBar,var_Items:FirstVisibleItem,var_Items:[FirstItemBar,var_Items:FirstVisibleItem],exBarTransparent] := 100
oDCOCX_Exontrol1:EndUpdate()
|
|
989
|
How can I align the caption in the note
local var_Items as IItems
local var_Note,var_Note1 as INote
local var_Notes as INotes
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"1",nil)
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Note := var_Notes:Add("N1",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","")
var_Note:ShowLink := exNoteLinkHidden
var_Note:[PartVisible,exNoteEnd] := false
var_Note:[PartText,exNoteStart] := "S <b><%dd%></b>"
var_Note:[PartFixedWidth,exNoteStart] := 48
var_Note:[PartAlignment,exNoteStart] := LeftAlignment
var_Note:[PartVOffset,exNoteStart] := 17
var_Note1 := var_Notes:Add("N2",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","")
var_Note1:RelativePosition := 1
var_Note1:ShowLink := exNoteLinkHidden
var_Note1:[PartVisible,exNoteEnd] := false
var_Note1:[PartText,exNoteStart] := "E <b><%dd%></b>"
var_Note1:[PartFixedWidth,exNoteStart] := 48
var_Note1:[PartAlignment,exNoteStart] := RightAlignment
var_Note1:[PartVOffset,exNoteStart] := 17
oDCOCX_Exontrol1:EndUpdate()
|
|
988
|
How I can assign a note and let user move the note relative to the bar
local var_Items as IItems
local var_Note as INote
local var_Notes as INotes
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"1",nil)
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Note := var_Notes:Add("Note",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","End")
var_Note:[PartText,exNoteStart] := "Day<br> <%dd%>"
var_Note:[PartCanMove,exNoteStart] := true
var_Note:[PartVOffset,exNoteStart] := 16
var_Note:[PartTransparency,exNoteStart] := 30
var_Note:[PartToolTip,exNoteStart] := "Click the note and start moving to a new position."
oDCOCX_Exontrol1:EndUpdate()
|
|
987
|
How can I assign a picture as a note associated with a bar
local var_Items as IItems
local var_Note,var_Note1 as INote
local var_Notes as INotes
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:[HTMLPicture,"pic2"] := "c:\exontrol\images\auction.gif"
oDCOCX_Exontrol1:AntiAliasing := true
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"1",nil)
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010111"),"2",nil)
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Note := var_Notes:Add("1",oDCOCX_Exontrol1:Items:[ItemByIndex,0],"1","<img>pic1</img>")
var_Note:[PartShadow,exNoteEnd] := false
var_Note:[PartBorderSize,exNoteEnd] := 0
var_Note:ClearPartBackColor(exNoteEnd)
var_Note:[PartHOffset,exNoteEnd] := -64
var_Note:[PartCanMove,exNoteEnd] := true
var_Note1 := var_Notes:Add("2",oDCOCX_Exontrol1:Items:[ItemByIndex,1],"2","<img>pic2</img>")
var_Note1:[PartShadow,exNoteEnd] := false
var_Note1:[PartBorderSize,exNoteEnd] := 0
var_Note1:ClearPartBackColor(exNoteEnd)
var_Note1:RelativePosition := 1
var_Note1:[PartCanMove,exNoteEnd] := true
var_Note1:LinkColor := RGB(255,0,0)
var_Note1:LinkWidth := 2
var_Note1:LinkStyle := exLinkDot
var_Note1:ShowLink := exNoteLinkVisible
oDCOCX_Exontrol1:EndUpdate()
|
|
986
|
How can I assign a picture as a note associated with a bar
local var_Items as IItems
local var_Note,var_Note1 as INote
local var_Notes as INotes
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:AntiAliasing := true
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"1",nil)
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010111"),"2",nil)
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Note := var_Notes:Add("1",oDCOCX_Exontrol1:Items:[ItemByIndex,0],"1","<img>1</img>")
var_Note:[PartShadow,exNoteEnd] := false
var_Note:[PartBorderSize,exNoteEnd] := 0
var_Note:ClearPartBackColor(exNoteEnd)
var_Note1 := var_Notes:Add("2",oDCOCX_Exontrol1:Items:[ItemByIndex,1],"2","<img>2</img>...<img>3</img>")
var_Note1:[PartShadow,exNoteEnd] := false
var_Note1:[PartBorderSize,exNoteEnd] := 0
var_Note1:ClearPartBackColor(exNoteEnd)
var_Note1:RelativePosition := 1
var_Note1:[PartCanMove,exNoteEnd] := true
var_Note1:LinkColor := RGB(255,0,0)
var_Note1:LinkWidth := 2
var_Note1:LinkStyle := exLinkDot
oDCOCX_Exontrol1:EndUpdate()
|
|
985
|
How can I put a box assigned to a DATE
local var_Items as IItems
local var_Note,var_Note1 as INote
local var_Notes as INotes
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
h := var_Items:AddItem("Item 2")
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Note := var_Notes:Add("D1",oDCOCX_Exontrol1:Items:FirstVisibleItem,oDCOCX_Exontrol1:Chart:FirstVisibleDate,"Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>")
var_Note:[PartCanMove,exNoteEnd] := true
var_Note:[PartVOffset,exNoteEnd] := 20
var_Note:[PartHOffset,exNoteEnd] := 20
var_Note1 := var_Notes:Add("D2",oDCOCX_Exontrol1:Items:[NextVisibleItem,oDCOCX_Exontrol1:Items:FirstVisibleItem],SToD("20010107"),"Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>")
var_Note1:[PartVisible,exNoteStart] := true
var_Note1:[PartText,exNoteStart] := "<b><%d%></b>"
var_Note1:[PartCanMove,exNoteEnd] := true
var_Note1:[PartVOffset,exNoteEnd] := 20
var_Note1:[PartHOffset,exNoteEnd] := 20
oDCOCX_Exontrol1:EndUpdate()
|
|
984
|
How can I add a note or a box associated with a bar
local var_Items as IItems
local var_Notes as INotes
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"1","Center")
var_Items:[ItemBar,h,"1",exBarExtraCaption] := "left"
var_Items:[ItemBar,h,"1",exBarExtraCaptionHAlign] := 16
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010111"),"2","Center")
var_Items:[ItemBar,h,"2",exBarExtraCaption] := "right"
var_Items:[ItemBar,h,"2",exBarExtraCaptionHAlign] := 18
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Notes:Add("1S",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","Start")
var_Notes:Add("1F",oDCOCX_Exontrol1:Items:FirstVisibleItem,"1","End"):RelativePosition := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
983
|
Is it possible to define different working hours for every week day
local var_Chart as IChart
local var_Items as IItems
local var_Level,var_Level1 as ILevel
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 14
var_Chart:NonworkingDays := 0
var_Chart:NonworkingHours := 0
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Alignment := CenterAlignment
var_Level:Label := "<%dddd%>"
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%hh%>"
var_Level1:Count := 6
var_Chart:UnitWidth := 16
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(1)
var_Items:[ItemNonworkingUnits,h,false] := "weekday(value) != 1 or (weekday(value) = 1 and not ( hour(value) >= 9 and hour(value) <= 14 ))"
h := var_Items:AddItem(2)
var_Items:[ItemNonworkingUnits,h,false] := "weekday(value) = 2 and ( hour(value) >= 9 and hour(value) <= 14 )"
h := var_Items:AddItem(3)
var_Items:[ItemNonworkingUnits,h,false] := "weekday(value) = 3"
oDCOCX_Exontrol1:EndUpdate()
|
|
982
|
How can I automatically update the exBarPercent value using a slider control
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local i as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20020101")
var_Chart:[PaneWidth,false] := 128
var_Chart:Bars:Add("Task%Progress"):Shortcut := "Percent"
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Percent")}
var_Column:[Def,exCellValueToItemBarProperty] := 518
var_Column:[Def,exCellValueToItemBarKey] := "P"
var_Items := oDCOCX_Exontrol1:Items
i := var_Items:AddItem(0)
var_Items:[CellBold,i,0] := true
var_Items:[CellEditor,i,0]:EditType := SliderType
var_Items:AddBar(i,"Percent",SToD("20020102"),SToD("20020106"),"P",nil)
var_Items:[ItemBar,i,"P",exBarShowPercentCaption] := true
var_Items:[CellValue,i,0] := 50
oDCOCX_Exontrol1:EndUpdate()
|
|
981
|
Is there any automatic way to change a property for all bars in the chart
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K4",nil)
var_Items:[ItemBar,0,"<*>",exBarColor] := 255
|
|
980
|
How can I assign an icon to a bar and I get notified when I click it
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010110"),"","Caption")
var_Items:[ItemBar,h,"",exBarExtraCaption] := "<a1><img>1:8</img></a><a1><img>2</img></a>"
var_Items:[ItemBar,h,"",exBarExtraCaptionHAlign] := 16
var_Items:[ItemBar,h,"",exBarExtraCaptionHOffset] := 5
oDCOCX_Exontrol1:EndUpdate()
|
|
979
|
How can I assign an icon to a bar so I do not break its caption
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010110"),"","Caption")
var_Items:[ItemBar,h,"",exBarExtraCaption] := "<img>1</img>"
var_Items:[ItemBar,h,"",exBarExtraCaptionHAlign] := 16
var_Items:[ItemBar,h,"",exBarExtraCaptionHOffset] := 5
var_Items:[ItemBar,h,"",exBarExtraCaptionVOffset] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
978
|
How can I assign multiple lables to the same bar
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010105"),SToD("20010107"),"","Right")
var_Items:[ItemBar,h1,"",exBarHAlignCaption] := 18
var_Items:AddBar(h1,"",SToD("20010105"),SToD("20010105"),"T1","Left")
var_Items:[ItemBar,h1,"T1",exBarHAlignCaption] := 16
var_Items:AddBar(h1,"",SToD("20010105"),SToD("20010107"),"T2","Center")
var_Items:GroupBars(h1,"",true,h1,"T1",true,nil,nil)
var_Items:GroupBars(h1,"",true,h1,"T1",false,nil,nil)
var_Items:GroupBars(h1,"",true,h1,"T2",true,nil,nil)
var_Items:GroupBars(h1,"",false,h1,"T2",false,nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
977
|
Is there any way to have more Captions on a bar than one
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010105"),SToD("20010107"),"","Right")
var_Items:[ItemBar,h1,"",exBarHAlignCaption] := 18
var_Items:AddBar(h1,"",SToD("20010105"),SToD("20010105"),"T1","Left")
var_Items:[ItemBar,h1,"T1",exBarHAlignCaption] := 16
var_Items:GroupBars(h1,"",true,h1,"T1",true,nil,nil)
var_Items:GroupBars(h1,"",true,h1,"T1",false,nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
976
|
How can I assign multiple lables to the same bar at once
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"","Center")
var_Items:[ItemBar,h,"",exBarExtraCaption] := "left"
var_Items:[ItemBar,h,"",exBarExtraCaptionHAlign] := 16
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010111"),"","Center")
var_Items:[ItemBar,h,"",exBarExtraCaption] := "right"
var_Items:[ItemBar,h,"",exBarExtraCaptionHAlign] := 18
oDCOCX_Exontrol1:EndUpdate()
|
|
975
|
How can I limit the duration or length of the bar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[ScrollRange,exStartDate] := SToD("20010101")
oDCOCX_Exontrol1:Chart:[ScrollRange,exEndDate] := SToD("20010107")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),nil,nil)
var_Items:[ItemBar,h,"",exBarMinDuration] := 2
var_Items:[ItemBar,h,"",exBarMaxDuration] := 5
var_Items:[ItemBar,h,"",exBarCaption] := "Min=2 / Max=5"
var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
oDCOCX_Exontrol1:EndUpdate()
|
|
974
|
I have an EBN file how can I apply different colors to it, so no need to create a new one
local var_Items as IItems
local h,hC as USUAL
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:HasLines := exNoLine
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
hC := var_Items:InsertItem(h,nil,"Default")
var_Items:[ItemBackColor,hC] := 0x1000000
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
hC := var_Items:InsertItem(h,nil,"Light Green")
var_Items:[ItemBackColor,hC] := 0x100ff00
oDCOCX_Exontrol1:Chart:[ItemBackColor,hC] := 0x100ff00
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
hC := var_Items:InsertItem(h,nil,"Dark Green")
var_Items:[ItemBackColor,hC] := 0x1007f00
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
hC := var_Items:InsertItem(h,nil,"Magenta")
var_Items:[ItemBackColor,hC] := 0x1ff7fff
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
hC := var_Items:InsertItem(h,nil,"Yellow")
var_Items:[ItemBackColor,hC] := 0x17fffff
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
var_Items:[ExpandItem,h] := true
|
|
973
|
I need to specify the non-working hours for about 100 days for each item, but the scrolling is very slow. Is there any option to increase the speed
local var_Chart as IChart
local var_Items as IItems
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowChartScrollPage := true
oDCOCX_Exontrol1:Columns:Add("Non-Work")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20090404 16:00:00")
var_Chart:[PaneWidth,false] := 52
var_Chart:LevelCount := 2
var_Chart:UnitWidth := 16
var_Level := var_Chart:[Level,0]
var_Level:Label := "<r><%d%>-<%mmm%>"
var_Level:Unit := exDay
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%hh%>"
var_Level1:Unit := exHour
var_Level1:Count := 2
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Default")
var_Items:[ItemNonworkingUnits,var_Items:AddItem("Test"),false] := "date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 12; #4/6/2009# : hour(value) >= 6 and hour(value) <= 12; #4/7/2009# : hour(value) >= 6 and hour(value) <= 12; #4/8/2009# : hour(value) >= 6 and hour(value) <= 12; #4/9/2009# : hour(value) >= 6 and hour(value) <= 12; #4/10/2009# : hour(value) >= 6 and hour(value) <= 12; #4/11/2009# : hour(value) >= 6 and hour(value) <= 12; #4/12/2009# : hour(value) >= 6 and hour(value) <= 12; #4/13/2009# : hour(value) >= 6 and hour(value) <= 12; #4/14/2009# : hour(value) >= 6 and hour(value) <= 12; #4/15/2009# : hour(value) >= 6 and hour(value) <= 12; #4/16/2009# : hour(value) >= 6 and hour(value) <= 12; #4/17/2009# : hour(value) >= 6 and hour(value) <= 12; #4/18/2009# : hour(value) >= 6 and hour(value) <= 12; #4/19/2009# : hour(value) >= 6 and hour(value) <= 12; #4/20/2009# : hour(value) >= 6 and hour(value) <= 12; #4/21/2009# : hour(value) >= 6 and hour(value) <= 12; #4/22/2009# : hour(value) >= 6 and hour(value) <= 12; #4/23/2009# : hour(value) >= 6 and hour(value) <= 12; #4/24/2009# : hour(value) >= 6 and hour(value) <= 12; #4/25/2009# : hour(value) >= 6 and hour(value) <= 12; #4/26/2009# : hour(value) >= 6 and hour(value) <= 12; #4/27/2009# : hour(value) >= 6 and hour(value) <= 12; #4/28/2009# : hour(value) >= 6 and hour(value) <= 12; #4/29/2009# : hour(value) >= 6 and hour(value) <= 12; #4/30/2009# : hour(value) >= 6 and hour(value) <= 12; #5/1/2009# : hour(value) >= 6 and hour(value) <= 12; #5/2/2009# : hour(value) >= 6 and hour(value) <= 12; #5/3/2009# : hour(value) >= 6 and hour(value) <= 12; #5/4/2009# : hour(value) >= 6 and hour(value) <= 12; #5/5/2009# : hour(value) >= 6 and hour(value) <= 12; #5/6/2009# : hour(value) >= 6 and hour(value) <= 12; #5/7/2009# : hour(value) >= 6 and hour(value) <= 12; #5/8/2009# : hour(value) >= 6 and hour(value) <= 12; #5/9/2009# : hour(value) >= 6 and hour(value) <= 12; #5/10/2009# : hour(value) >= 6 and hour(value) <= 12; #5/11/2009# : hour(value) >= 6 and hour(value) <= 12; #5/13/2009# : hour(value) >= 6 and hour(value) <= 12; #5/14/2009# : hour(value) >= 6 and hour(value) <= 12; #5/15/2009# : hour(value) >= 6 and hour(value) <= 12; #5/16/2009# : hour(value) >= 6 and hour(value) <= 12; #5/17/2009# : hour(value) >= 6 and hour(value) <= 12; #5/18/2009# : hour(value) >= 6 and hour(value) <= 12; #5/19/2009# : hour(value) >= 6 and hour(value) <= 12; #5/20/2009# : hour(value) >= 6 and hour(value) <= 12; #5/21/2009# : hour(value) >= 6 and hour(value) <= 12; #5/22/2009# : hour(value) >= 6 and hour(value) <= 12; #5/23/2009# : hour(value) >= 6 and hour(value) <= 12; #5/24/2009# : hour(value) >= 6 and hour(value) <= 12; #5/25/2009# : hour(value) >= 6 and hour(value) <= 12; #5/26/2009# : hour(value) >= 6 and hour(value) <= 12; #5/27/2009# : hour(value) >= 6 and hour(value) <= 12; #5/28/2009# : hour(value) >= 6 and hour(value) <= 12; #5/29/2009# : hour(value) >= 6 and hour(value) <= 12; #5/30/2009# : hour(value) >= 6 and hour(value) <= 12; #5/31/2009# : hour(value) >= 6 and hour(value) <= 12; #6/1/2009# : hour(value) >= 6 and hour(value) <= 12; #6/2/2009# : hour(value) >= 6 and hour(value) <= 12; #6/3/2009# : hour(value) >= 6 and hour(value) <= 12; #6/4/2009# : hour(value) >= 6 and hour(value) <= 12; #6/5/2009# : hour(value) >= 6 and hour(value) <= 12; #6/6/2009# : hour(value) >= 6 and hour(value) <= 12; #6/7/2009# : hour(value) >= 6 and hour(value) <= 12; #6/8/2009# : hour(value) >= 6 and hour(value) <= 12; #6/9/2009# : hour(value) >= 6 and hour(value) <= 12; #6/10/2009# : hour(value) >= 6 and hour(value) <= 12; #6/11/2009# : hour(value) >= 6 and hour(value) <= 12; #6/12/2009# : hour(value) >= 6 and hour(value) <= 12; #6/13/2009# : hour(value) >= 6 and hour(value) <= 12; #6/14/2009# : hour(value) >= 6 and hour(value) <= 12; #6/15/2009# : hour(value) >= 6 and hour(value) <= 12; #6/16/2009# : hour(value) >= 6 and hour(value) <= 12; #6/17/2009# : hour(value) >= 6 and hour(value) <= 12; #6/18/2009# : hour(value) >= 6 and hour(value) <= 12; #6/19/2009# : hour(value) >= 6 and hour(value) <= 12; #6/21/2009# : hour(value) >= 6 and hour(value) <= 12; #6/22/2009# : hour(value) >= 6 and hour(value) <= 12; #6/23/2009# : hour(value) >= 6 and hour(value) <= 12; #6/24/2009# : hour(value) >= 6 and hour(value) <= 12; #6/25/2009# : hour(value) >= 6 and hour(value) <= 12; #6/26/2009# : hour(value) >= 6 and hour(value) <= 12; #6/27/2009# : hour(value) >= 6 and hour(value) <= 12; #6/28/2009# : hour(value) >= 6 and hour(value) <= 12; #6/29/2009# : hour(value) >= 6 and hour(value) <= 12; #6/30/2009# : hour(value) >= 6 and hour(value) <= 12; #7/1/2009# : hour(value) >= 6 and hour(value) <= 12; #7/2/2009# : hour(value) >= 6 and hour(value) <= 12; #7/3/2009# : hour(value) >= 6 and hour(value) <= 12; #7/4/2009# : hour(value) >= 6 and hour(value) <= 12; #7/5/2009# : hour(value) >= 6 and hour(value) <= 12; #7/6/2009# : hour(value) >= 6 and hour(value) <= 12; #7/7/2009# : hour(value) >= 6 and hour(value) <= 12; #7/8/2009# : hour(value) >= 6 and hour(value) <= 12; #7/9/2009# : hour(value) >= 6 and hour(value) <= 12; #7/10/2009# : hour(value) >= 6 and hour(value) <= 12; #7/11/2009# : hour(value) >= 6 and hour(value) <= 12; #7/12/2009# : hour(value) >= 6 and hour(value) <= 12; #7/13/2009# : hour(value) >= 6 and hour(value) <= 12; #7/14/2009# : hour(value) >= 6 and hour(value) <= 12)"
var_Items:[ItemNonworkingUnits,var_Items:AddItem("Test"),false] := "date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/20/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/20/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/31/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21))"
var_Items:AddItem("Default")
oDCOCX_Exontrol1:EndUpdate()
|
|
972
|
How can I use the CASE statement (CASE usage)
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}
var_Column:Width := 24
var_Column:Editor:EditType := SpinType
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("CASE - statment")}
var_Column1:ComputedField := "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
var_Column1:ToolTip := var_Column1:ComputedField
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()
|
|
971
|
How can I use the CASE statement (CASE usage)
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}
var_Column:Width := 24
var_Column:Editor:EditType := SpinType
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("CASE - statment")}
var_Column1:ComputedField := "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
var_Column1:ToolTip := var_Column1:ComputedField
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()
|
|
970
|
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}
var_Column:Width := 24
var_Column:Editor:EditType := SpinType
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("SWITCH - statment")}
var_Column1:ComputedField := "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)"
var_Column1:ToolTip := var_Column1:ComputedField
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()
|
|
969
|
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}
var_Column:Width := 24
var_Column:Editor:EditType := SpinType
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("IN - statment")}
var_Column1:ComputedField := "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''"
var_Column1:ToolTip := var_Column1:ComputedField
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()
|
|
968
|
How can I automatically update the exBarPercent value using a slider control
local var_Chart as IChart
local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems
local i as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20020101")
var_Chart:[PaneWidth,false] := 128
var_Chart:Bars:Add("Task%Progress"):Shortcut := "Percent"
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Percent")}
var_Column:[Def,exCellValueToItemBarProperty] := 12
var_Column:[Def,exCellValueToItemBarKey] := "P"
var_Items := oDCOCX_Exontrol1:Items
i := var_Items:AddItem(0)
var_Items:[CellBold,i,0] := true
var_Editor := var_Items:[CellEditor,i,0]
var_Editor:EditType := SliderType
var_Editor:[Option,exSliderStep] := 0.01
var_Editor:[Option,exSpinStep] := 0.01
var_Editor:[Option,exSliderMax] := 1
var_Editor:[Option,exSliderWidth] := -100
var_Items:[CellValueFormat,i,0] := exHTML
var_Items:AddBar(i,"Percent",SToD("20020102"),SToD("20020106"),"P",nil)
var_Items:[ItemBar,i,"P",exBarShowPercentCaption] := true
var_Items:[CellValue,i,0] := 0.5
oDCOCX_Exontrol1:EndUpdate()
|
|
967
|
How can I automatically update the exBarPercent value using a spin control
local var_Chart as IChart
local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems
local i as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20020101")
var_Chart:[PaneWidth,false] := 128
var_Chart:Bars:Add("Task%Progress"):Shortcut := "Percent"
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Percent")}
var_Column:[Def,exCellValueToItemBarProperty] := 12
var_Column:FormatColumn := "((0:=round(dbl(%0)*100)) >= 50 ? '<font 8>'+ =:0 + '%</font>' : '<fgcolor=808080><font 6>'+ =:0 + '%</font></fgcolor>')"
var_Items := oDCOCX_Exontrol1:Items
i := var_Items:AddItem(0)
var_Items:[CellBold,i,0] := true
var_Editor := var_Items:[CellEditor,i,0]
var_Editor:EditType := SpinType
var_Editor:[Option,exSpinStep] := 0.01
var_Editor:[Option,exSliderMax] := 1
var_Items:[CellValueFormat,i,0] := exHTML
var_Items:AddBar(i,"Percent",SToD("20020102"),SToD("20020106"),nil,nil)
var_Items:[CellValue,i,0] := 0.5
oDCOCX_Exontrol1:EndUpdate()
|
|
966
|
How do I specify for an item all units as being non-working units
local var_Chart as IChart
local var_Items as IItems
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowChartScrollPage := true
oDCOCX_Exontrol1:Columns:Add("Non-Work")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowCreateBar := exCreateBarAuto
var_Chart:FirstVisibleDate := SToD("20090403 10:00:00")
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Chart:UnitWidth := 16
var_Level := var_Chart:[Level,0]
var_Level:Label := "<r><%d%>-<%mmm%>"
var_Level:Unit := exDay
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%hh%>"
var_Level1:Unit := exHour
var_Level1:Count := 2
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Default")
var_Items:[ItemNonworkingUnits,var_Items:AddItem("All-Non-Working"),false] := "1"
var_Items:AddItem("Default")
oDCOCX_Exontrol1:EndUpdate()
|
|
965
|
How do I specify for an item all units as being working units
local var_Chart as IChart
local var_Items as IItems
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowChartScrollPage := true
oDCOCX_Exontrol1:Columns:Add("Non-Work")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowCreateBar := exCreateBarAuto
var_Chart:FirstVisibleDate := SToD("20090403 10:00:00")
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Chart:UnitWidth := 16
var_Level := var_Chart:[Level,0]
var_Level:Label := "<r><%d%>-<%mmm%>"
var_Level:Unit := exDay
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%hh%>"
var_Level1:Unit := exHour
var_Level1:Count := 2
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Default")
var_Items:[ItemNonworkingUnits,var_Items:AddItem("All-Working"),false] := "0"
var_Items:AddItem("Default")
oDCOCX_Exontrol1:EndUpdate()
|
|
964
|
How can I programmatically specify different non-working units ( days, hours ) for different items
local var_Chart as IChart
local var_Items as IItems
local var_Level,var_Level1 as ILevel
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowChartScrollPage := true
oDCOCX_Exontrol1:Columns:Add("Non-Work")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowCreateBar := exCreateBarAuto
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:FirstVisibleDate := SToD("20090713 12:00:00")
var_Chart:[PaneWidth,false] := 52
var_Chart:LevelCount := 2
var_Chart:UnitWidth := 16
var_Level := var_Chart:[Level,0]
var_Level:Label := "<r><b><%d%></b> <%mmm%> <%yyyy%>"
var_Level:Unit := exDay
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%hh%>"
var_Level1:Unit := exHour
var_Level1:Count := 2
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:[ItemNonworkingUnits,h,false] := "(shortdate(value) = #7/14/2009# and hour(value) >= 6 and hour(value) <= 12)"
var_Items:AddBar(h,"Task",SToD("20090714 04:00:00"),SToD("20090714 14:00:00"),nil,nil)
h := var_Items:AddItem("Item 2")
var_Items:[ItemNonworkingUnits,h,false] := "(((hour(value) >= 4 and hour(value) <= 16) or hour(value) = 2) and month(value) = 7) or ((hour(value) >= 2 and hour(value) < 10)) and month(value) = 6 or weekday(value) = 6"
var_Items:AddBar(h,"Task",SToD("20090714 01:00:00"),SToD("20090714 06:00:00"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
963
|
I am programmatically select a date using the Chart.SelectDate property, but can't see why the date is not highlighted. What am I doing wrong
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:SelectLevel := 1
var_Chart:[SelectDate,SToD("20010104")] := true
|
|
962
|
How do I show a shorter line in the chart's level
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:GridLineColor := RGB(128,128,128)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawLevelSeparator := exLevelNoLine
var_Chart:UnitWidth := 24
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Alignment := CenterAlignment
var_Level:Label := "<%dddd%>"
var_Level:DrawTickLines := exLevelLowerHalf | exLevelSolidLine
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := 65536
var_Level1:Count := 6
var_Level1:DrawTickLines := 0x200 | exLevelMiddleLine | exLevelSolidLine
var_Level1:DrawTickLinesFrom(0,exLevelUpperHalf | exLevelSolidLine)
oDCOCX_Exontrol1:EndUpdate()
|
|
961
|
How do I replicate the screen shot http://www.exontrol.com/images/exg2antt9.jpg
local var_Appearance as IAppearance
local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local var_Level,var_Level1 as ILevel
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\headdark.ebn")
var_Appearance:Add(2,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\xpbsel.ebn")
var_Appearance:Add(3,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\headligh.ebn")
var_Appearance:Add(4,"CP:1 0 0 1 1")
oDCOCX_Exontrol1:BackColorHeader := 0x4000000
oDCOCX_Exontrol1:Chart:BackColorLevelHeader := 0x4000000
oDCOCX_Exontrol1:SelBackColor := 0x20000ff
oDCOCX_Exontrol1:GridLineColor := RGB(128,128,128)
oDCOCX_Exontrol1:HeaderHeight := 22
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:ScrollBySingleLine := false
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:DefaultItemHeight := 48
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("Group")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:[Def,exCellBackColor] := 50331648
var_Column:LevelKey := 1
var_Column1 := IColumn{var_Columns:Add("Histogram")}
var_Column1:Width := 18
var_Column1:AllowSizing := false
var_Column1:LevelKey := 1
var_Column1:Position := 0
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20090611")
var_Chart:DrawGridLines := exAllLines
var_Chart:[PaneWidth,false] := 96
var_Chart:LevelCount := 2
var_Chart:DrawLevelSeparator := exLevelNoLine
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%mmmm%> <%yyyy%>"
var_Level:Unit := exMonth
var_Level:Alignment := CenterAlignment
var_Level1 := var_Chart:[Level,1]
var_Level1:FormatLabel := "weekday(dvalue)=1?value:''"
var_Level1:DrawTickLines := exLevelLowerHalf | exLevelSolidLine
var_Level1:DrawTickLinesFrom(0,exLevelSolidLine)
var_Level1:Alignment := CenterAlignment
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Color := 0x2000000
var_Bar:Height := 18
var_Bar:OverlaidType := exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
var_Bar:HistogramColor := 0x1000000
var_Bar:HistogramType := exHistOverAllocation
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 48
var_Chart:HistogramView := exHistogramCheckedItems
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Group <b>A</b>")
var_Items:[CellValueFormat,h,0] := exHTML
var_Items:[CellMerge,h,0] := 1
var_Items:AddBar(h,"Task",SToD("20090612"),SToD("20090619"),"K1","Requirements")
var_Items:AddBar(h,"Task",SToD("20090613"),SToD("20090621"),"K2","Sales & Marketing")
var_Items:[ItemBar,h,"K1",exBarColor] := 255
var_Items:[ItemBar,h,"K2",exBarColor] := 255
var_Items:[CellState,h,0] := 1
h := var_Items:AddItem("Group <b>B</b>")
var_Items:[CellValueFormat,h,0] := exHTML
var_Items:[CellMerge,h,0] := 1
var_Items:AddBar(h,"Task",SToD("20090614"),SToD("20090623"),"K1","<b>GUI</b> Design")
var_Items:AddBar(h,"Task",SToD("20090618"),SToD("20090625"),"K2","Class Design")
h := var_Items:AddItem("Group <b>C</b>")
var_Items:[CellValueFormat,h,0] := exHTML
var_Items:[CellMerge,h,0] := 1
var_Items:AddBar(h,"Task",SToD("20090612"),SToD("20090619"),"K1","<b>GUI</b> Coding")
var_Items:AddBar(h,"Task",SToD("20090613"),SToD("20090625"),"K2","Design & Concept")
var_Items:[ItemBar,h,"K1",exBarColor] := 65280
var_Items:[ItemBar,h,"K2",exBarColor] := 65280
oDCOCX_Exontrol1:EndUpdate()
|
|
960
|
How can I remove all bars from the chart
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:ClearBars(0)
|
|
959
|
How can I change the color for all bars with a specified key
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:[ItemBar,0,"K1",exBarColor] := 255
|
|
958
|
Is there any automatic way to change a property for all bars with a specified key
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:[ItemBar,0,"K1",exBarColor] := 255
|
|
957
|
How can I remove all bars with specified key
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:RemoveBar(0,"K1")
|
|
956
|
How do I several bars with different vertical offsets
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item")
var_Items:[ItemHeight,h] := 62
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"T1",nil)
var_Items:[ItemBar,h,"T1",exBarOffset] := -23
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"T2",nil)
var_Items:[ItemBar,h,"T2",exBarOffset] := -11
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"T3",nil)
var_Items:[ItemBar,h,"T3",exBarOffset] := 1
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"T4",nil)
var_Items:[ItemBar,h,"T4",exBarOffset] := 13
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"T5",nil)
var_Items:[ItemBar,h,"T5",exBarOffset] := 25
|
|
955
|
Is there any option to show gradient bars without using EBN technology
local var_Bar as IBar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bar := oDCOCX_Exontrol1:Chart:Bars:[Item,"Task"]
var_Bar:Color := RGB(255,0,0)
var_Bar:StartColor := RGB(0,255,0)
var_Bar:EndColor := RGB(255,255,0)
var_Bar:Pattern := exPatternBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"",nil)
|
|
954
|
How can I define a bar with border and solid filling
local var_Bar as IBar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bar := oDCOCX_Exontrol1:Chart:Bars:[Item,"Task"]
var_Bar:Color := RGB(255,0,0)
var_Bar:StartColor := RGB(255,255,0)
var_Bar:EndColor := RGB(255,255,0)
var_Bar:Pattern := exPatternBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"",nil)
|
|
953
|
How can I define a bar with border and solid filling
local var_Bar as IBar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bar := oDCOCX_Exontrol1:Chart:Bars:[Item,"Task"]
var_Bar:Color := RGB(255,0,0)
var_Bar:Pattern := exPatternBox
var_Bar:Height := 18
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:[ItemBar,h,"",exBarBackColor] := 65535
|
|
952
|
How do I define a bar with solid border and filling
local var_Bar as IBar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:VisualAppearance:Add(1,"C:\Program Files\Exontrol\ExG2antt.NET\sample\EBN\blackboxt.ebn")
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bar := oDCOCX_Exontrol1:Chart:Bars:[Item,"Task"]
var_Bar:Color := 0x1000000
var_Bar:Height := 18
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:[ItemBar,h,"",exBarColor] := 255
var_Items:[ItemBar,h,"",exBarBackColor] := 65535
|
|
951
|
Can I control the units/resource/effort being allocated to a bar when displaying OverAllocation histogram
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Effort")}
var_Column:[Def,exCellValueToItemBarProperty] := 21
var_Column:Editor:EditType := SpinType
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 96
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 202
var_Chart:HistogramView := exHistogramAllItems
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exRectangularCurve | exPatternDot
var_Bar:HistogramType := exHistOverAllocation
var_Bar:HistogramCriticalValue := 50
var_Bar:HistogramGridLinesColor := RGB(192,192,192)
var_Bar:HistogramRulerLinesColor := RGB(0,0,1)
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050625"),nil,nil)
var_Items:[CellValue,h1,1] := 2
h1 := var_Items:AddItem("Task 2")
var_Items:AddBar(h1,"Task",SToD("20050624"),SToD("20050628"),nil,nil)
var_Items:[CellValue,h1,1] := 1
h1 := var_Items:AddItem("Task 3")
var_Items:AddBar(h1,"Task",SToD("20050627"),SToD("20050701"),nil,nil)
var_Items:[CellValue,h1,1] := 2
h1 := var_Items:AddItem("Task 4")
var_Items:AddBar(h1,"Task",SToD("20050630"),SToD("20050702"),nil,nil)
var_Items:[CellValue,h1,1] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
950
|
Can I control the units/resource/effort being allocated to a bar when displaying Overload histogram
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Effort")}
var_Column:[Def,exCellValueToItemBarProperty] := 21
var_Column:Editor:EditType := SpinType
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 96
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 128
var_Chart:HistogramView := exHistogramAllItems
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := var_Bar:Pattern
var_Bar:HistogramType := exHistOverload
var_Bar:HistogramCriticalValue := 3
var_Bar:ShowHistogramValues := "value>3?255:1"
var_Bar:HistogramItems := -11
var_Bar:HistogramGridLinesColor := RGB(192,192,192)
var_Bar:HistogramRulerLinesColor := RGB(0,0,1)
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050623"),nil,nil)
var_Items:[CellValue,h1,1] := 4
h1 := var_Items:AddItem("Task 2")
var_Items:AddBar(h1,"Task",SToD("20050624"),SToD("20050626"),nil,nil)
var_Items:[CellValue,h1,1] := 3
h1 := var_Items:AddItem("Task 3")
var_Items:AddBar(h1,"Task",SToD("20050627"),SToD("20050629"),nil,nil)
var_Items:[CellValue,h1,1] := 2
h1 := var_Items:AddItem("Task 4")
var_Items:AddBar(h1,"Task",SToD("20050630"),SToD("20050702"),nil,nil)
var_Items:[CellValue,h1,1] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
949
|
How can I display double-lines curves in the histogram
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:AntiAliasing := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exBezierCurve
var_Bar:HistogramItems := 3
var_Bar:HistogramBorderColor := RGB(128,0,0)
var_Bar:HistogramColor := RGB(255,0,0)
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
|
|
948
|
Is there any option to display values in the histogram using different colors
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exPatternBDiagonal
var_Bar:HistogramItems := 6
var_Bar:ShowHistogramValues := "value>1?255:65280"
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
|
|
947
|
Is there any option to display values in the histogram using different colors
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exPatternBDiagonal
var_Bar:HistogramItems := 6
var_Bar:ShowHistogramValues := "value>1?255:1"
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
|
|
946
|
How can I display only few values in the histogram, such as the values greater than a value
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exPatternBDiagonal
var_Bar:ShowHistogramValues := "value>1"
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
|
|
945
|
How can I display values in the histogram
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exPatternBDiagonal
var_Bar:ShowHistogramValues := "1"
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
|
|
944
|
How can I scroll the chart to find a bar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Column")
oDCOCX_Exontrol1:Chart:LevelCount := 2
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 64
oDCOCX_Exontrol1:DefaultItemHeight := 32
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),1,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010102"),SToD("20010104"),2,nil)
var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010102"),SToD("20010104"),3,nil)
var_Items:AddBar(var_Items:AddItem("Item 4"),"Task",SToD("20010102"),SToD("20010104"),4,nil)
var_Items:AddBar(var_Items:AddItem("Item 5"),"Task",SToD("20010102"),SToD("20010104"),5,nil)
var_Items:AddBar(var_Items:AddItem("Item 6"),"Task",SToD("20010102"),SToD("20010104"),6,nil)
var_Items:AddBar(var_Items:AddItem("Item 7"),"Task",SToD("20010102"),SToD("20010104"),7,nil)
var_Items:AddBar(var_Items:AddItem("Item 8"),"Task",SToD("20010102"),SToD("20010104"),8,nil)
var_Items:AddBar(var_Items:AddItem("Item 9"),"Task",SToD("20010102"),SToD("20010104"),8,nil)
var_Items:AddBar(var_Items:AddItem("Item 10"),"Task",SToD("20010102"),SToD("20010104"),10,nil)
var_Items:AddBar(var_Items:AddItem("Item 11"),"Task",SToD("20010102"),SToD("20010104"),11,nil)
var_Items:AddBar(var_Items:AddItem("Item 12"),"Task",SToD("20010102"),SToD("20010104"),12,nil)
var_Items:AddBar(var_Items:AddItem("Item 13"),"Task",SToD("20010102"),SToD("20010104"),13,nil)
var_Items:AddBar(var_Items:AddItem("Item 14"),"Task",SToD("20010102"),SToD("20010104"),14,nil)
h := oDCOCX_Exontrol1:Items:[FindBar,14,nil]
oDCOCX_Exontrol1:Items:EnsureVisibleItem(h)
oDCOCX_Exontrol1:Chart:ScrollTo(oDCOCX_Exontrol1:Items:[ItemBar,h,14,exBarStart],1)
|
|
943
|
Can I change the color/marker/frame for selected bars
local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(2,"c:\exontrol\images\normal.ebn")
var_Appearance:Add(1,"CP:2 3 2 -3 -2")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20020101")
var_Chart:SelBarColor := 0x1000000
var_Chart:[PaneWidth,false] := 48
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20020102"),SToD("20020104"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20020106"),SToD("20020110"),"B",nil)
var_Items:AddBar(h,"Task",SToD("20020111"),SToD("20020114"),"C",nil)
var_Items:[ItemBar,h,"A",exBarSelected] := true
var_Items:[ItemBar,h,"B",exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
942
|
Can I display a larger marker for selected bars, eventually using the EBN technology
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20020101")
var_Chart:SelBarColor := 0x1000000
var_Chart:[PaneWidth,false] := 48
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20020102"),SToD("20020104"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20020106"),SToD("20020110"),"B",nil)
var_Items:AddBar(h,"Task",SToD("20020111"),SToD("20020114"),"C",nil)
var_Items:[ItemBar,h,"A",exBarSelected] := true
var_Items:[ItemBar,h,"B",exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
941
|
How do I change the color for the selected bars
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Debug := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20020101")
var_Chart:SelBarColor := RGB(255,0,0)
var_Chart:[PaneWidth,false] := 48
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20020102"),SToD("20020104"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20020106"),SToD("20020110"),"B",nil)
var_Items:AddBar(h,"Task",SToD("20020111"),SToD("20020114"),"C",nil)
var_Items:[ItemBar,h,"A",exBarSelected] := true
var_Items:[ItemBar,h,"B",exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
940
|
How can I change the background color for child bars of a summary bar
local var_Chart as IChart
local var_Items as IItems
local h1,hR1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:HasLines := exNoLine
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:AllowLinkBars := false
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 112
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
hR1 := var_Items:AddItem("Team 1")
var_Items:AddBar(hR1,"Summary",SToD("20080102"),SToD("20080108"),"",nil)
var_Items:[ItemBar,hR1,"",exSummaryBarBackColor] := 12895428
h1 := var_Items:InsertItem(hR1,nil,"Member 1")
var_Items:AddBar(h1,"Task",SToD("20080102"),SToD("20080107"),nil,nil)
var_Items:DefineSummaryBars(hR1,"",h1,"")
h1 := var_Items:InsertItem(hR1,nil,"Member 2")
var_Items:AddBar(h1,"Task",SToD("20080104"),SToD("20080109"),nil,nil)
var_Items:DefineSummaryBars(hR1,"",h1,"")
h1 := var_Items:InsertItem(hR1,nil,"Member 3")
var_Items:AddBar(h1,"Task",SToD("20080105"),SToD("20080110"),nil,nil)
var_Items:DefineSummaryBars(hR1,"",h1,"")
var_Items:[ExpandItem,hR1] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
939
|
How can I allow resizing the bar only in the right part of the bar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarCanResize] := 2
|
|
938
|
How can I allow resizing the bar only in the left part of the bar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarCanResize] := 1
|
|
937
|
How can I show the links that starts from selected bar being more visible, while the rest being transparent
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:[PaneWidth,false] := 64
var_Chart:[ShowLinksWidth,exShowLinksStartFrom] := 2
var_Chart:[ShowLinksStyle,exShowLinksStartFrom] := exLinkDot
var_Chart:[ShowLinksColor,exShowLinksEndTo] := RGB(200,200,200)
var_Chart:[ShowLinksColor,exShowUnselectedLinks] := RGB(200,200,200)
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060923"),nil,nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20060925"),SToD("20060927"),nil,nil)
var_Items:[ItemBar,h2,"",exBarSelected] := true
var_Items:AddLink("L1",h1,"",h2,"")
var_Items:[Link,"L1",exLinkText] := "L1"
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20060929"),SToD("20061002"),nil,nil)
var_Items:AddLink("L2",h2,"",h3,"")
var_Items:[Link,"L2",exLinkText] := "L2"
oDCOCX_Exontrol1:EndUpdate()
|
|
936
|
How can I show only the links that starts from selected bar
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:Columns:Add("Tasks")
IColumn{oDCOCX_Exontrol1:Columns:Add("Start")}:Visible := false
IColumn{oDCOCX_Exontrol1:Columns:Add("End")}:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:[PaneWidth,false] := 64
var_Chart:[ShowLinksColor,exShowLinksEndTo] := var_Chart:BackColor
var_Chart:[ShowLinksColor,exShowUnselectedLinks] := var_Chart:BackColor
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:[CellValue,h1,1] := SToD("20060921")
var_Items:[CellValue,h1,2] := SToD("20060924")
var_Items:AddBar(h1,"Task",var_Items:[CellValue,h1,1],var_Items:[CellValue,h1,2],nil,nil)
h2 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:[CellValue,h2,1] := SToD("20060925")
var_Items:[CellValue,h2,2] := SToD("20060928")
var_Items:AddBar(h2,"Task",var_Items:[CellValue,h2,1],var_Items:[CellValue,h2,2],nil,nil)
var_Items:[ItemBar,h2,"",exBarSelected] := true
var_Items:AddLink("L1",h1,"",h2,"")
h3 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:[CellValue,h3,1] := SToD("20060929")
var_Items:[CellValue,h3,2] := SToD("20061002")
var_Items:AddBar(h3,"Task",var_Items:[CellValue,h3,1],var_Items:[CellValue,h3,2],nil,nil)
var_Items:AddLink("L2",h2,"",h3,"")
oDCOCX_Exontrol1:EndUpdate()
|
|
935
|
How can I hide links that are not related to selected bar
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:Columns:Add("Tasks")
IColumn{oDCOCX_Exontrol1:Columns:Add("Start")}:Visible := false
IColumn{oDCOCX_Exontrol1:Columns:Add("End")}:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:[PaneWidth,false] := 64
var_Chart:[ShowLinksColor,exShowUnselectedLinks] := var_Chart:BackColor
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:[CellValue,h1,1] := SToD("20060921")
var_Items:[CellValue,h1,2] := SToD("20060924")
var_Items:AddBar(h1,"Task",var_Items:[CellValue,h1,1],var_Items:[CellValue,h1,2],nil,nil)
var_Items:[ItemBar,h1,"",exBarSelected] := true
h2 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:[CellValue,h2,1] := SToD("20060925")
var_Items:[CellValue,h2,2] := SToD("20060928")
var_Items:AddBar(h2,"Task",var_Items:[CellValue,h2,1],var_Items:[CellValue,h2,2],nil,nil)
var_Items:AddLink("L1",h1,"",h2,"")
h3 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:[CellValue,h3,1] := SToD("20060929")
var_Items:[CellValue,h3,2] := SToD("20061002")
var_Items:AddBar(h3,"Task",var_Items:[CellValue,h3,1],var_Items:[CellValue,h3,2],nil,nil)
var_Items:AddLink("L2",h2,"",h3,"")
oDCOCX_Exontrol1:EndUpdate()
|
|
934
|
How can I show the direction of the link using EBN files
local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Appearance:Add(2,"CP:1 -1 -1 1 1")
var_Appearance:Add(3,"CP:1 -2 -2 2 2")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"B1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010113"),"B2",nil)
var_Items:AddLink("L1",h1,"B1",h2,"B2")
var_Items:[Link,"L1",exLinkArrowColor] := 16777216
h2 := var_Items:AddItem("Task 3")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010113"),"B3",nil)
var_Items:AddLink("L2",h1,"B1",h2,"B3")
var_Items:[Link,"L2",exLinkArrowColor] := 33554432
h2 := var_Items:AddItem("Task 4")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010113"),"B5",nil)
var_Items:AddLink("L3",h1,"B1",h2,"B5")
var_Items:[Link,"L3",exLinkArrowColor] := 50331648
oDCOCX_Exontrol1:EndUpdate()
|
|
933
|
How can I show round links
local var_Items as IItems
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),"B1",nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010105"),SToD("20010113"),"B2",nil)
var_Items:AddLink("L1",var_Items:[FindItem,"Item 1",0,nil],"B1",var_Items:[FindItem,"Item 2",0,nil],"B2")
var_Items:[Link,"L1",exLinkShowRound] := true
|
|
932
|
How can I change the color to display the arrow of the link
local var_Items as IItems
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),"B1",nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010106"),SToD("20010114"),"B2",nil)
var_Items:AddLink("L1",var_Items:[FindItem,"Item 1",0,nil],"B1",var_Items:[FindItem,"Item 2",0,nil],"B2")
var_Items:[Link,"L1",exLinkArrowColor] := 255
|
|
931
|
I use UnitScale: exHour and I want to show only from 9 to 18 hour. The idea is to show only the working part of a day. Is this possible
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:MarkTodayColor := var_Chart:BackColor
var_Chart:BackColorLevelHeader := RGB(255,255,255)
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Label := "<b><%dddd%></b> <%d%>"
var_Level:Alignment := CenterAlignment
var_Level:DrawTickLines := exLevelNoLine
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := 65536
var_Level1:DrawTickLines := exLevelMiddleLine | exLevelDotLine
var_Level1:DrawTickLinesFrom(0,exLevelDotLine)
var_Chart:NonworkingHours := 16253439
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := false
var_Chart:ShowNonworkingHours := false
oDCOCX_Exontrol1:EndUpdate()
|
|
930
|
Can I display tick lines from other level to my base level so time units gets separated more clearly
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawLevelSeparator := exLevelNoLine
var_Chart:UnitWidth := 24
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Alignment := CenterAlignment
var_Level:Label := "<%dddd%>"
var_Level:DrawTickLines := exLevelLowerHalf | exLevelSolidLine
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := 65536
var_Level1:Count := 6
var_Level1:DrawTickLines := exLevelMiddleLine | exLevelSolidLine
var_Level1:DrawTickLinesFrom(0,exLevelSolidLine)
oDCOCX_Exontrol1:EndUpdate()
|
|
929
|
Is there any property to change the style of the tick lines being shown in the chart
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:UnitWidth := 24
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Alignment := CenterAlignment
var_Level:Label := "<%dddd%>"
var_Level:DrawTickLines := exLevelSolidLine
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := 65536
var_Level1:Count := 6
var_Level1:DrawTickLines := exLevelUpperHalf | exLevelSolidLine
var_Chart:DrawLevelSeparator := exLevelSolidLine
oDCOCX_Exontrol1:EndUpdate()
|
|
928
|
Is there any property to change the style of the tick lines being shown in the chart
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:DrawLevelSeparator := exLevelSolidLine
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%dddd%>"
var_Level:DrawTickLines := exLevelSolidLine
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := 65536
var_Level1:Count := 6
var_Level1:DrawTickLines := exLevelSolidLine
oDCOCX_Exontrol1:EndUpdate()
|
|
927
|
How can I show the levels based on the base level so tick lines aligns better
local var_Chart as IChart
local var_Level as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AdjustLevelsToBase := true
var_Chart:UnitWidth := 24
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := "<%dddd%>"
var_Level := var_Chart:[Level,1]
var_Level:Label := 65536
var_Level:Count := 5
oDCOCX_Exontrol1:EndUpdate()
|
|
926
|
How can I show only working hours in other words only the working part of the day
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowSelectDate := exNoSelectDate
var_Chart:MarkTodayColor := var_Chart:BackColor
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Label := "<b><%dddd%></b> <%d%>"
var_Level:Alignment := CenterAlignment
var_Level:DrawTickLines := exLevelNoLine
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := 65536
var_Level1:[ReplaceLabel,"09"] := "<fgcolor=FF0000><b><font ;10>9</font></b></fgcolor>"
var_Chart:NonworkingHours := 16253439
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := false
var_Chart:ShowNonworkingHours := false
oDCOCX_Exontrol1:EndUpdate()
|
|
925
|
How can I specify the effort for bars when displaying the overload histogram
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 52
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:HistogramView := exHistogramAllItems
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := var_Bar:Pattern
var_Bar:HistogramType := exHistOverload
var_Bar:HistogramItems := -6
var_Bar:HistogramGridLinesColor := RGB(192,192,192)
var_Bar:HistogramRulerLinesColor := RGB(0,0,1)
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050623"),"","4")
var_Items:[ItemBar,h1,"",exBarEffort] := 4
h1 := var_Items:AddItem("Task 2")
var_Items:AddBar(h1,"Task",SToD("20050624"),SToD("20050626"),"",3)
var_Items:[ItemBar,h1,"",exBarEffort] := 3
h1 := var_Items:AddItem("Task 3")
var_Items:AddBar(h1,"Task",SToD("20050627"),SToD("20050629"),"",2)
var_Items:[ItemBar,h1,"",exBarEffort] := 2
h1 := var_Items:AddItem("Task 4")
var_Items:AddBar(h1,"Task",SToD("20050630"),SToD("20050702"),"",1)
oDCOCX_Exontrol1:EndUpdate()
|
|
924
|
How can I display the cumulative histogram and showing the bars that generated it using different colors
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:[PaneWidth,false] := 128
var_Chart:HistogramView := exHistogramNoGrouping | exHistogramLeafItems | exHistogramUnlockedItems | exHistogramCheckedItems
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exPatternSolid
var_Bar:HistogramType := exHistCumulative
var_Bar:HistogramCumulativeOriginalColorBars := exChangeColor
var_Bar:HistogramItems := 6
var_Bar:HistogramRulerLinesColor := RGB(128,0,0)
var_Bar:HistogramBorderColor := RGB(1,0,0)
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010103"),SToD("20010105"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 3"),"Task",SToD("20010104"),SToD("20010106"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 4"),"Task",SToD("20010102"),SToD("20010108"),nil,nil)
var_Items:[CellState,var_Items:[ItemByIndex,1],0] := 1
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
923
|
How can I show the cumulative histogram for my bar
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:[PaneWidth,false] := 128
var_Chart:HistogramView := exHistogramNoGrouping | exHistogramLeafItems | exHistogramUnlockedItems | exHistogramCheckedItems
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exPatternSolid
var_Bar:HistogramType := exHistCumulative
var_Bar:HistogramItems := 6
var_Bar:HistogramRulerLinesColor := RGB(128,0,0)
var_Bar:HistogramBorderColor := RGB(1,0,0)
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010103"),SToD("20010105"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 3"),"Task",SToD("20010104"),SToD("20010106"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 4"),"Task",SToD("20010102"),SToD("20010108"),nil,nil)
var_Items:[CellState,var_Items:[ItemByIndex,1],0] := 1
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
922
|
How can I show some grid lines or ruler in the histogram
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:[PaneWidth,false] := 78
var_Chart:HistogramView := exHistogramNoGrouping | exHistogramLeafItems | exHistogramUnlockedItems | exHistogramCheckedItems
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exPatternBDiagonal
var_Bar:HistogramItems := 6
var_Bar:HistogramRulerLinesColor := RGB(128,0,0)
var_Bar:HistogramGridLinesColor := RGB(255,0,0)
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
var_Items:[CellHasCheckBox,h,0] := true
var_Items:[CellState,h,0] := 1
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010103"),SToD("20010105"),nil,nil)
var_Items:[ExpandItem,h] := true
|
|
921
|
Is there any property to show some grid lines in the histogram
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:[PaneWidth,false] := 78
var_Chart:HistogramView := exHistogramNoGrouping | exHistogramLeafItems | exHistogramUnlockedItems | exHistogramCheckedItems
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exPatternBDiagonal
var_Bar:HistogramItems := 6
var_Bar:HistogramGridLinesColor := RGB(255,0,0)
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
var_Items:[CellHasCheckBox,h,0] := true
var_Items:[CellState,h,0] := 1
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010103"),SToD("20010105"),nil,nil)
var_Items:[ExpandItem,h] := true
|
|
920
|
How can I specify a fixed number of bars/items being shown in the histogram
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:[PaneWidth,false] := 78
var_Chart:HistogramView := exHistogramNoGrouping | exHistogramLeafItems | exHistogramUnlockedItems | exHistogramCheckedItems
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exPatternBDiagonal
var_Bar:HistogramCriticalValue := 3
var_Bar:HistogramItems := -6
var_Bar:HistogramRulerLinesColor := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
var_Items:[CellHasCheckBox,h,0] := true
var_Items:[CellState,h,0] := 1
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010103"),SToD("20010105"),nil,nil)
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Project 2")
var_Items:[CellHasCheckBox,h,0] := true
var_Items:[CellState,h,0] := 1
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010104"),SToD("20010107"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010106"),SToD("20010108"),nil,nil)
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Project 3")
var_Items:[CellHasCheckBox,h,0] := true
var_Items:[CellState,h,0] := 1
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010103"),SToD("20010105"),nil,nil)
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Project 4")
var_Items:[CellHasCheckBox,h,0] := true
var_Items:[CellState,h,0] := 1
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010104"),SToD("20010107"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010106"),SToD("20010108"),nil,nil)
var_Items:[ExpandItem,h] := true
|
|
919
|
Is there any option to specify a minimum number of bars/items displayed in the histogram
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:[PaneWidth,false] := 78
var_Chart:HistogramView := exHistogramNoGrouping | exHistogramLeafItems | exHistogramUnlockedItems | exHistogramCheckedItems
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exPatternBDiagonal
var_Bar:HistogramItems := 6
var_Bar:HistogramGridLinesColor := RGB(1,0,0)
var_Bar:HistogramRulerLinesColor := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
var_Items:[CellHasCheckBox,h,0] := true
var_Items:[CellState,h,0] := 1
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010103"),SToD("20010105"),nil,nil)
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Project 2")
var_Items:[CellHasCheckBox,h,0] := true
var_Items:[CellState,h,0] := 1
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010104"),SToD("20010107"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010106"),SToD("20010108"),nil,nil)
var_Items:[ExpandItem,h] := true
|
|
918
|
How can I show the histogram without grouping the bars based on their parents
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Chart:HistogramView := exHistogramNoGrouping | exHistogramLeafItems | exHistogramUnlockedItems | exHistogramCheckedItems
var_Chart:Bars:[Item,"Task"]:HistogramPattern := exPatternBDiagonal
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
var_Items:[CellHasCheckBox,h,0] := true
var_Items:[CellState,h,0] := 1
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010103"),SToD("20010105"),nil,nil)
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Project 2")
var_Items:[CellHasCheckBox,h,0] := true
var_Items:[CellState,h,0] := 1
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010104"),SToD("20010107"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010106"),SToD("20010108"),nil,nil)
var_Items:[ExpandItem,h] := true
|
|
917
|
How can I show the histogram for checked item and all recursively child items
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 128
var_Chart:HistogramView := exHistogramRecLeafItems | exHistogramLeafItems | exHistogramUnlockedItems | exHistogramCheckedItems
var_Chart:Bars:[Item,"Task"]:HistogramPattern := exPatternBDiagonal
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
var_Items:[CellHasCheckBox,h,0] := true
var_Items:[CellState,h,0] := 1
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010103"),SToD("20010105"),nil,nil)
var_Items:[ExpandItem,h] := true
h := var_Items:InsertItem(h,nil,"SubProject")
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010105"),SToD("20010108"),nil,nil)
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
916
|
How can I show the histogram for checked item and its child items
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Chart:HistogramView := exHistogramLeafItems | exHistogramUnlockedItems | exHistogramCheckedItems
var_Chart:Bars:[Item,"Task"]:HistogramPattern := exPatternBDiagonal
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
var_Items:[CellHasCheckBox,h,0] := true
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
var_Items:[ExpandItem,h] := true
|
|
915
|
How can I show the histogram for all items
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:LevelCount := 2
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Chart:HistogramView := exHistogramAllItems
var_Chart:Bars:[Item,"Task"]:HistogramPattern := exPatternBDiagonal
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
914
|
How can I prevent selecting a new item when clicking the chart area so my selection is shown in the histogram
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:SingleSel := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:SelectOnClick := false
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Chart:HistogramView := exHistogramSelectedItems
var_Chart:Bars:[Item,"Task"]:HistogramPattern := exPatternBDiagonal
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
var_Items:[SelectItem,var_Items:[ItemByIndex,0]] := true
|
|
913
|
How can I show bars in the histogram for selected items only
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:SingleSel := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Chart:HistogramView := exHistogramSelectedItems
var_Chart:Bars:[Item,"Task"]:HistogramPattern := exPatternBDiagonal
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
var_Items:[SelectItem,var_Items:[ItemByIndex,0]] := true
|
|
912
|
How can I change the color and size for the curve in the histogram
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 64
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 68
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := 0x100 | exPatternDot
var_Bar:HistogramBorderColor := RGB(0,255,0)
var_Bar:HistogramBorderSize := 5
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task")
var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050625"),1,1)
var_Items:AddBar(h1,"Task",SToD("20050623"),SToD("20050628"),2,2)
oDCOCX_Exontrol1:EndUpdate()
|
|
911
|
How can I change the color for the frame in the histogram
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 64
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 68
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := 0x100 | exPatternShadow
var_Bar:HistogramItems := 5
var_Bar:HistogramBorderColor := RGB(255,0,0)
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task")
var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050625"),1,1)
var_Items:AddBar(h1,"Task",SToD("20050623"),SToD("20050628"),2,2)
oDCOCX_Exontrol1:EndUpdate()
|
|
910
|
How can I force the histogram for a bar being shown all the time
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBySingleLine := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}:[Def,exCellHasCheckBox] := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 64
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 68
var_Chart:HistogramView := exHistogramUnlockedItems | exHistogramCheckedItems
var_Bar := var_Chart:Bars:Copy("Task","H")
var_Bar:Color := RGB(0,255,0)
var_Bar:HistogramPattern := 0x100 |
var_Bar:HistogramItems := 5
var_Bar:HistogramColor := var_Bar:Color
var_Bar:HistogramGridLinesColor := RGB(128,128,128)
var_Bar:HistogramRulerLinesColor := RGB(0,0,1)
var_Bar1 := var_Chart:Bars:[Item,"Task"]
var_Bar1:HistogramCriticalColor := RGB(0,0,128)
var_Bar1:HistogramPattern := var_Bar1:Pattern
var_Bar1:HistogramItems := 5
var_Bar1:HistogramGridLinesColor := RGB(128,128,128)
var_Bar1:HistogramRulerLinesColor := RGB(0,0,1)
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Hidden")
var_Items:AddBar(h1,"H",SToD("20050623"),SToD("20050628"),1,nil)
var_Items:AddBar(h1,"H",SToD("20050624"),SToD("20050626"),2,nil)
var_Items:[CellState,h1,0] := 1
var_Items:[ItemHeight,h1] := 0
var_Items:[SelectableItem,h1] := false
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050625"),1,nil)
var_Items:[CellState,h1,0] := 1
h1 := var_Items:AddItem("Task 2")
var_Items:[CellState,h1,0] := 1
var_Items:AddBar(h1,"Task",SToD("20050624"),SToD("20050701"),1,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
909
|
How can I remove a bar type from the histogram
local var_Bar,var_Bar1,var_Bar2 as IBar
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 40
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramCriticalColor := RGB(0,0,128)
var_Bar:HistogramPattern := var_Bar:Pattern
var_Bar1 := var_Chart:Bars:Copy("Task","Green")
var_Bar1:Color := RGB(0,255,0)
var_Bar1:HistogramPattern := var_Bar1:Pattern
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Green",SToD("20050622"),SToD("20050626"),0,nil)
var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050625"),1,nil)
var_Items:[ItemBar,h1,1,exBarOffset] := 3
h1 := var_Items:AddItem("Task 2")
var_Items:AddBar(h1,"Green",SToD("20050628"),SToD("20050630"),0,nil)
var_Items:AddBar(h1,"Task",SToD("20050627"),SToD("20050701"),1,nil)
var_Items:[ItemBar,h1,1,exBarOffset] := 3
var_Bar2 := oDCOCX_Exontrol1:Chart:Bars:[Item,"Green"]
var_Bar2:HistogramColor := var_Bar2:Color
var_Bar2:HistogramPattern := exPatternEmpty
oDCOCX_Exontrol1:EndUpdate()
|
|
908
|
How can I show the two buttons in the vertical splitter but still resizes the chart when the control gets resized
oDCOCX_Exontrol1:OnResizeControl := exSplitterShowButtons | exResizeChart
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
oDCOCX_Exontrol1:Chart:LevelCount := 2
|
|
907
|
I have seen a screen shot on your web page that shows two buttons on the vertical scroll bar. How can I show them
oDCOCX_Exontrol1:OnResizeControl := exSplitterShowButtons
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
|
|
906
|
How can I disable selecting a new item once the user clicks the chart area
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:SingleSel := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:SelectOnClick := false
var_Chart:AllowCreateBar := exCreateBarAuto
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 40
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Chart:HistogramView := exHistogramSelectedItems
var_Chart:Bars:[Item,"Task"]:HistogramPattern := exPatternSolid
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20050622"),SToD("20050626"),0,nil)
var_Items:[SelectItem,h1] := true
h1 := var_Items:AddItem("Task 2")
var_Items:AddBar(h1,"Task",SToD("20050624"),SToD("20050630"),0,nil)
var_Items:[SelectItem,h1] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
905
|
Is there any option to display the chart's header in the bottom side of the histogram
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 40
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramView := exHistogramAllItems
var_Chart:HistogramHeight := 96
var_Chart:HistogramHeaderVisible := true
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Color := RGB(0,0,255)
var_Bar:OverlaidType := exOverlaidBarsOffset
var_Bar:OverlaidGroup := "Task2"
var_Bar:HistogramCriticalColor := RGB(0,0,128)
var_Bar:HistogramPattern := exBezierCurve
var_Bar:HistogramType := exHistOverAllocation
var_Bar1 := var_Chart:Bars:Copy("Task","Task2")
var_Bar1:Color := RGB(0,255,0)
var_Bar1:OverlaidType := exOverlaidBarsOffset
var_Bar1:OverlaidGroup := "Task"
var_Bar1:HistogramCriticalColor := RGB(0,128,0)
var_Bar1:HistogramPattern := exBezierCurve
var_Bar1:HistogramType := exHistOverAllocation
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task2",SToD("20050622"),SToD("20050626"),0,nil)
var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050625"),1,nil)
var_Items:[ItemBar,h1,0,exBarEffort] := 3
var_Items:[ItemBar,h1,1,exBarEffort] := 4
h1 := var_Items:AddItem("Task 2")
var_Items:AddBar(h1,"Task2",SToD("20050628"),SToD("20050630"),0,nil)
var_Items:AddBar(h1,"Task",SToD("20050627"),SToD("20050701"),1,nil)
var_Items:[ItemBar,h1,0,exBarEffort] := 4
var_Items:[ItemBar,h1,1,exBarEffort] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
904
|
How can I display the child bars as soon as an item gets collapsed
local var_Chart as IChart
local var_Items as IItems
local h,h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:ShowCollapsedBars := true
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 96
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060923"),"A",nil)
h2 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(h2,"Task",SToD("20060924"),SToD("20060926"),"B",nil)
h3 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(h3,"Task",SToD("20060927"),SToD("20060929"),"C",nil)
h := var_Items:AddItem("Project 2")
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060923"),"A",nil)
h2 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(h2,"Task",SToD("20060924"),SToD("20060926"),"B",nil)
h3 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(h3,"Task",SToD("20060927"),SToD("20060929"),"C",nil)
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
903
|
What exBarEffort property represents
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 40
var_Chart:FirstVisibleDate := SToD("20050609")
var_Chart:HistogramVisible := true
var_Chart:HistogramView := exHistogramAllItems
var_Chart:HistogramHeight := 164
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := 0x100 |
var_Bar:HistogramType := exHistOverAllocation
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20050610"),SToD("20050611"),nil,"1/1=<b>100%")
var_Items:[ItemBar,h1,nil,exBarHAlignCaption] := 18
h1 := var_Items:AddItem("Task 2")
var_Items:AddBar(h1,"Task",SToD("20050612"),SToD("20050614"),nil,"1/2=<b>50%")
var_Items:[ItemBar,h1,nil,exBarHAlignCaption] := 18
h1 := var_Items:AddItem("Task 3")
var_Items:AddBar(h1,"Task",SToD("20050615"),SToD("20050618"),nil,"1/3=<b>33%")
var_Items:[ItemBar,h1,nil,exBarHAlignCaption] := 18
h1 := var_Items:AddItem("Task 4")
var_Items:AddBar(h1,"Task",SToD("20050619"),SToD("20050623"),nil,"1/4=<b>25%")
var_Items:[ItemBar,h1,nil,exBarHAlignCaption] := 18
h1 := var_Items:AddItem("Task 5")
var_Items:AddBar(h1,"Task",SToD("20050624"),SToD("20050629"),nil,"1/5=<b>20%")
var_Items:[ItemBar,h1,nil,exBarHAlignCaption] := 18
oDCOCX_Exontrol1:EndUpdate()
|
|
902
|
Can I display multiple curves in the histogram
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 40
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramView := exHistogramAllItems
var_Chart:HistogramHeight := 64
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Color := RGB(0,0,255)
var_Bar:OverlaidType := exOverlaidBarsOffset
var_Bar:OverlaidGroup := "Task2"
var_Bar:HistogramCriticalColor := RGB(0,0,128)
var_Bar:HistogramPattern := exBezierCurve
var_Bar:HistogramType := exHistOverAllocation
var_Bar1 := var_Chart:Bars:Copy("Task","Task2")
var_Bar1:Color := RGB(0,255,0)
var_Bar1:OverlaidType := exOverlaidBarsOffset
var_Bar1:OverlaidGroup := "Task"
var_Bar1:HistogramCriticalColor := RGB(0,128,0)
var_Bar1:HistogramPattern := exBezierCurve
var_Bar1:HistogramType := exHistOverAllocation
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task2",SToD("20050622"),SToD("20050626"),0,nil)
var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050625"),1,nil)
var_Items:[ItemBar,h1,0,exBarEffort] := 3
var_Items:[ItemBar,h1,1,exBarEffort] := 4
h1 := var_Items:AddItem("Task 2")
var_Items:AddBar(h1,"Task2",SToD("20050628"),SToD("20050630"),0,nil)
var_Items:AddBar(h1,"Task",SToD("20050627"),SToD("20050701"),1,nil)
var_Items:[ItemBar,h1,0,exBarEffort] := 4
var_Items:[ItemBar,h1,1,exBarEffort] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
901
|
How can I use the exBarEffort property
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 40
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:HistogramView := exHistogramAllItems
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramCriticalColor := RGB(255,0,0)
var_Bar:HistogramPattern := exBezierCurve
var_Bar:HistogramType := exHistOverAllocation
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050625"),nil,nil)
var_Items:[ItemBar,h1,"",exBarEffort] := 4
h1 := var_Items:AddItem("Task 2")
var_Items:AddBar(h1,"Task",SToD("20050627"),SToD("20050701"),nil,nil)
var_Items:[ItemBar,h1,"",exBarEffort] := 1
oDCOCX_Exontrol1:EndUpdate()
|